250 PRINT"[147]":POKESC,152:POKE36869,255 255 A=INT(RND(1)*3+1):B=INT(RND(1)*7+1):X=INT(RND(1)*26+5):Y=INT(RND(1)*101+50) 260 IFA=1THEND$="FEET":TT$="SECONDS":V$="F/S" 265 IFA=2THEND$="MILES":TT$="HOURS":V$="MPH" 270 IFA=3THEND$="FEET":TT$="MINUTES":V$="F/M" 280 ONBGOSUB440,470,440,455,470,440,470 285 PRINT:PRINT:PRINT:PRINTTAB(19)"[144][\":PRINTTAB(19)"](" 290 FORN=19TO15STEP-1:PRINTTAB(N)"(":NEXTN 295 PRINTTAB(12)"'''''":PRINTTAB(12)"'''''" 300 PRINT"[156]'''''[158] %%%%%'''''":PRINT"[156]'''''''''''''''''''''' " 305 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]" 310 Z=7680+(9*22)+20:C=Z+30720:V=36878:F2=36875 315 INPUT"[144] ";S$:S=VAL(S$):IFS=KTHEN360 330 POKEV,15:PRINT" UH UH! SORRY " 335 FORM=230TO190STEP-1:POKEF2,M:FORT=1TO5:NEXTT:NEXTM 340 Q=5:GOSUB480:POKEV,0:FORN=1TO4:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32 345 POKEZ+22,30:POKEC+22,0:POKEZ+43,35:POKEC+43,0:POKEZ+44,31:POKEC+44,0 350 POKEZ+45,36:POKEC+45,0:Z=Z+22:C=C+22:NEXTN 354 FORN=0TO4:POKEZ+20+N,38:POKEC+20+N,7:NEXTN 355 POKE36877,210:FORL=15TO0STEP-1:POKEV,L:FORM=1TO50:NEXTM:NEXTL:PP=1 356 POKE36877,0:POKEV,0:GOTO400 360 POKEV,15:PRINT" YEP! THATS RIGHT ":FORM=190TO230:POKEF2,M:FORT=1TO5:NEXTT:NEXTM 362 Q=10:GOSUB480:POKEV,0:FORN=1TO3:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32 364 POKEZ+21,30:POKEC+21,0:POKEZ+42,35:POKEC+42,0:POKEZ+43,31:POKEC+43,0 366 POKEZ+44,36:POKEC+44,0:Z=Z+21:C=C+21:NEXTN 368 POKEV,15:FORL=148TO220STEP.7:POKEF2,L:NEXTL:POKEV,0:FORT=1TO500:NEXTT:PP=2 400 PRINT"[147]":POKESC,184 405 IFPP=1THENPRINTSPC(134)"YOU LOST THIS TIME" 407 IFPP=1THENPRINTSPC(49)"BETTER LUCK NEXT TIME" 410 IFPP=2THENPRINTSPC(158)"YOU SOLVED THE GIVEN PROBLEM" 412 FORT2=1TO5000:NEXT 415 D=5:GOTO250 440 K=INT(Y/X) 441 PRINTSPC(24)"[144]A SKIER WENT ";Y:PRINT" ";D$ 442 PRINT"[144] IN ";X;"";TT$ 445 PRINT"[144] WHAT WAS HIS":PRINT"[144] VELOCITY IN ";V$:RETURN 455 K=X*Y:PRINTSPC(24)"[144]A SKIER WENT ";X:PRINT" ";V$:PRINT"[144] FOR ";Y"";TT$ 460 PRINT"[144] WHAT WAS HIS":PRINT"[144] DISTANCE IN ";"";D$:RETURN 470 K=INT(Y/X) 471 PRINTSPC(24)"[144]A SKIER WENT ";Y:PRINT" ";D$ 472 PRINT"[144] AT ";X;"";V$ 475 PRINT"[144] HOW MUCH TIME DID":PRINT"[144] HE SKI IN ";TT$:RETURN 480 FORN=1TO5:POKEZ,32:POKEZ+1,32:POKEZ+22,32:POKEZ+21,27:POKEC+21,0 482 POKEZ+22,28:POKEC+22,0:POKEZ+43,29:POKEC+43,0:Z=Z+21:C=C+21:NEXTN 484 POKEV,0:Z=Z-21:POKEZ,32:POKEZ+1,32:POKEZ+22,32 486 Z=7680+(14*22)+14:C=Z+30720:POKEZ+1,32 488 FORN=1TOQ:POKEZ,32:POKEZ+21,32:POKEZ+22,32:POKEZ+23,32 490 POKEZ-1,30:POKEC-1,0:POKEZ+20,35:POKEC+20,0:POKEZ+21,31:POKEC+21,0 492 POKEZ+22,36:POKEC+22,0:Z=Z-1:C=C-1:NEXTN:RETURN